﻿'Agregar referencia .NET > System.xml
Imports System.Xml

Public Class XmlUtil

    'NOTA: No olvidarse de llamar mReader.Close()
    Public Shared Function getReader(ByVal archivo As String, ByVal conAcentos As Boolean) As XmlTextReader
        'Leyendo el xml
        If conAcentos Then
            Return New XmlTextReader(ArchivoUtil.leerArchivoEnUTF8(archivo))
        Else
            Return New XmlTextReader(archivo)
        End If
    End Function

    ' document no tiene close()
    Public Shared Function getDocument(ByVal archivo As String, ByVal conAcentos As Boolean) As XmlDocument
        Dim doc As XmlDocument

        'Creamos el "Documento"
        doc = New XmlDocument()

        'Cargamos el archivo
        If conAcentos Then
            doc.Load(ArchivoUtil.leerArchivoEnUTF8(archivo))
        Else
            doc.Load(archivo)
        End If

        Return doc
    End Function

    Public Shared Function getDocumentFromData(ByVal data As String) As XmlDocument
        Dim doc As New XmlDocument()
        doc.LoadXml(data)
        Return doc
    End Function

End Class
